# $Id: Harvest.pm 36 2006-09-29 23:09:30Z cmauch $
# Author: Charles Mauch (cmauch@gmail.com)
# Description: Module to harvest email and stuff it into a lbdb database
# Legal: (c) 2006 Charles Mauch, released under the terms of the GPLv2 or later

# -- [ sub: harvestemails  ] ------------------------------------------------
#
#Summary:      Subroutine to process email data given to it, and log it in a
#              Little Brother Database.  An external sorting mechanism is
#              reccommended on a periodic basis.  See lbdbsorter.pl
#Parameters:   email address, full name
#Return:       none

sub harvestemails {
    my ( $address, $username ) = @_;
    my $date = $manip{ '%m/%d/%Y' };

    open( LBDB, ">>$MauchConfig::lbdblog" );
    print LBDB ( "$address\t$username\t\($date\)\n" );
    close LBDB;
} ## end sub harvestemails

1;
